home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form frmIndependent
- BackColor = &H0000FFFF&
- Caption = "I am Independent"
- ClientHeight = 4725
- ClientLeft = 1230
- ClientTop = 1275
- ClientWidth = 7365
- Height = 5130
- Left = 1170
- LinkTopic = "Form1"
- Picture = INDEPEND.FRX:0000
- ScaleHeight = 4725
- ScaleWidth = 7365
- Top = 930
- Width = 7485
- Begin TextBox txtUserInput
- Height = 495
- Left = 4080
- TabIndex = 2
- Top = 3120
- Width = 2175
- End
- Begin CommandButton cmdOK
- Caption = "&OK"
- Height = 495
- Left = 4200
- TabIndex = 1
- Top = 3960
- Width = 1215
- End
- Begin CommandButton cmdCancel
- Caption = "&Cancel"
- Height = 495
- Left = 2760
- TabIndex = 0
- Top = 3960
- Width = 1215
- End
- Option Explicit
- Dim gOriginalValue
- Sub cmdCancel_Click ()
- txtUserInput.Text = gOriginalValue
- frmIndependent.Hide
- End Sub
- Sub cmdOK_Click ()
- frmIndependent.Hide
- End Sub
- Sub Form_Activate ()
- gOriginalValue = txtUserInput.Text
- End Sub
-